home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yamaminetupload / aminetupload.rexx < prev   
OS/2 REXX Batch file  |  1997-04-13  |  1KB  |  46 lines

  1. /* This script allows you uploading files to Aminet with YAM 
  2.  *                                                           
  3.  * Requires: rexxreqtools.library                            
  4.  *                                                           
  5.  * © by Andreas Grundler <a.grundler@regensburg.netsurf.de>  
  6.  * $VER: AminetUpload.rexx V1.1 (13.04.97)
  7.  */
  8. OPTIONS RESULTS
  9.  
  10. IF ~SHOW('L','rexxreqtools.library') THEN CALL ADDLIB('rexxreqtools.library',0,-30,0)
  11.  
  12. ADDRESS YAM
  13.  
  14. /* Setup */
  15.  
  16. path="Ram:" /* Enter here your default upload-path */
  17.  
  18. /* Main */
  19.  
  20. lhafilename=rtfilerequest(path,,"Please select the Archiv-File",,"rtfi_matchpat=#?.(lha|lzh|gif|jpg|dms)|rtfi_buffer=tru",check)
  21.  
  22. if check=0 then do
  23. show
  24. exit
  25. end
  26.  
  27. mailwrite
  28. writemailto 'aminet-server@wuarchive.wustl.edu'
  29. writesubject 'Upload'
  30. writeattach lhafilename "Archiv-File" "MIME" "application/octet-stream"
  31. writequeue
  32.  
  33. len=length(lhafilename)
  34. len=len-4
  35.  
  36. word=substr(lhafilename,1,len)
  37. readmefilename=word".readme"
  38.  
  39. mailwrite
  40. writemailto 'aminet-server@wuarchive.wustl.edu'
  41. writesubject 'Upload'
  42. writeattach readmefilename "Readme-File" "MIME" "application/octet-stream"
  43. writequeue
  44.  
  45. exit
  46.